﻿Public Class SetTimerForm

    Private Sub btn取消_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn取消.Click
        Me.Close()
    End Sub

    Private Sub btn确定_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn确定.Click
        Dim content As String = If(txtContent.Text.Trim = "", "", txtContent.Text.Trim)

        Dim sqlCreate As String = "Insert into " + MyConfig.前缀 + "_Key(Key_Timer,Descripion) values('" + Now.ToString("yyyyMMddHHmmss.fff") + "',N'" + content + "')"
        IListenDb.CommonConUtil.ExecuteSql(sqlCreate)

        wys.util.Common.MessageBase.ShowMessage("成功")
        Me.Close()
    End Sub
End Class
